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-- File: Menus. mesa 

-- Edited by Sandman. May 12. 1978 2:41 PM 

DIRECTORY 

AltoFileDefs: FROM "altof iledef s" USING [FA], 

BitBUDefs: FROM "bitbltdefs" USING [BBptr, BBTable, BITBLT], 

InlineDefs: FROM "inlinedefs" USING [BITAND]. 

MenuDefs: FROM "menudefs" USING [ 

MenuArray, MenuHandle, MenuLeftMargin , MenuObject], 
RectangleDefs: FROM "rectangledef s" USING [ 

BMHandle, BMptr, ClearBoxInRectangle, ComputeCharWidth , CreateRectangle, 

CursorToRecCoords , DestroyRectangle, DrawBoxInRectangle, FAptr, 

GetDefaul tFont, GrayArray, GrayPtr, InvertBoxInRectangle, leftmargin, 

RectangleError. Rptr, WriteRectangleString. xCoord, yCoord], 
StreamDefs: FROM "streamdefs" USING [ 

Equallndex, GetFA, GrEquallndex, Grindex, JumpToFA, Modifylndex. Setlndex. 

StreamError], 
StringDefs: FROM "stringdefs" USING [AppendChar]. 
SystemDefs: FROM "systemdefs" USING [ 

AllocateHeapNode, AllocateHeapString. AllocateSegment, FreeHeapNode. 

FreeSegment], 
WindowDefs: FROM "windowdefs" USING [ 

GetLineTable, Selection, Streamlndex, WindowHandle]; 

DEFINITIONS FROM BitBUDefs, WindowDefs, MenuDefs, RectangleDefs. 
StreamDefs; 

Menus: PROGRAM 

IMPORTS RectangleDefs, StreamDefs, StringDefs, SystemDefs, WindowDefs 
EXPORTS MenuDefs, RectangleDefs, WindowDefs SHARES MenuDefs, RectangleDefs « 
BEGIN 

-- GLOBAL Data 

defaultpfont: FAptr <- NIL; 
defaultlineheight: CARDINAL; 
nullindex: Streamlndex « Streamlndex[0.-1]; 
originindex: Streamlndex =» StreamIndex[0,0]; 
CR: CHARACTER - 15C; 

-- Mesa Display Menu Routines 

CreateMenu: PUBLIC PROCEDURE [array: MenuArray] RETURNS [MenuHandle] - 
BEGIN 

i, j: CARDINAL; 
menu: MenuHandle; 
width, widest: xCoord; 
-- compute width of widest command word 
[defaultpfont, defaultlineheight] ^ GetDefaul tFont[]; 
widest ^ 0; 
FOR i IN [O..LENGTH[array]) DO 

width ♦- 0; 

FOR j IN [0. .array[i]. keyword. length) DO 

width <- width + ComputeCharWidth[array[i] .keyword[ j] , defaultpfont]; 
ENDLOOP; 

IF width > widest THEN widest ♦- width; 

ENDLOOP: 
-- now create menu object and init it 
widest *- widest + MenuLef tMargin*2; 
menu *- SystemDefs .AnocateHeapNode[SIZE[MenuObject]]; 
menut <- MenuObject[NIL, -1, widest, NIL, NIL, NIL, array]; 
RETURN[menu]; 
END; 

DestroyMenu: PUBLIC PROCEDURE [menu: MenuHandle] » 
BEGIN 

-- NOTE: need to unlink from menu list later 
SystemDefs . FreeHeapNode[menu]; 
END; 

DisplayMenu: PUBLIC PROCEDURE 

[menu: MenuHandle, mapdata: BMHandle, x: xCoord, y: yCoord] - 

BEGIN 

i: CARDINAL; 

ex: INTEGER ^ MAX[0. INTEGER[x-(menu .width+2)]]; 

cy: INTEGER; 
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nitems: CARDINAL *- 0; 

length; CARDINAL « LENGTH[menu. array]; 

clearwords: GrayArray ^ [0, 0, 0, 0]; 

clear: GrayPtr ■ Qclearwords; 

[defauUpfont, default! ineheight] *- GetDef aul tFont[]; 

-- save data first then clear it 

IF menu. index ^ -1 THEN nitems <~ menu. index; 

nitems ^ MAX[length/2, nitems]; 

cy *- y-(nitems*defau1tlineheight+(defaum ineheight/2)) ; 

cy *- MAX[0, cy]; 

menu. rectangle ^ CreateRectang1e[ 

mapdata, ex, menu. width, cy, default! ineheight*1ength+2]; 
menu. rectangle. options. NoteOverflow ^ TRUE; 
--test page size of menu before saving 
IF (((menu. rectangle. cw + 15) /16 +1) * menu. rectangle . ch ) / 256 <« 4 

THEN menu.dataseg ♦- LOOPHOLE[SaveRectangle[menu. rectangle]] ; 
menu . index ♦- -1; 
ClearBoxInRectang1e[ 

menu.rectanglOt 0, menu. rectangle. cw, 0, menu. rectangle. ch, clear]; 
-- now paint it up on screen 
DrawBoxInRectangle[ 

menu. rectangle, 0, menu .rectangle. cw, 0, menu. rectangle. ch]; 
FOR i IN [0. .length) DO 

[cx.cy] ♦- WriteRectangleString[menu. rectangle, MenuLef tMargin, 
( i*def aul tl ineheight + 1), menu .array[i] .keyword, defaultpfont 
I RectangleError »> 
SELECT error FROM 

RightOverflow ■> CONTINUE; 
NotVisible , BottomOverf low «> EXIT; 
ENDCASE]; 

ENDLOOP; 
END; 

ClearMenu: PUBLIC PROCEDURE [menu: MenuHandle] ■ 
BEGIN 

clearwords: GrayArray ^ [0, 0, 0, 0]; 
clear: GrayPtr » Qclearwords; 
IF menu. rectangle # NIL THEN 
BEGIN 

ClearBoxInRectangle[menu. rectangle, 0, menu, rectangle. cw, 0. 
menu. rectangle. ch, clear]; 

IF menu.dataseg ff NIL THEN 
BEGIN 

Res toreRectangle[menu. rectangle, LOOPHOLE[menu.dataseg]]; 
menu.dataseg <- NIL; 
END; 

Des troy Re c tang l0[menu. rectangle]; 
menu. rectangle <- NIL; 
END; 
END; 

MarkMenuItem: PUBLIC PROCEDURE [menu: MenuHandle, index: INTEGER] - 

BEGIN 

i: CARDINAL <- 1; 

oldlndex: CARDINAL ♦- menu, index; 

r: Rptr « menu . rectangle; 

[defaultpfont, defaul tlineheight] <- GetDef aul tFont[]; 

IF menu. index « index THEN RETURN; 

IF menu, index = LENGTH[menu . arrayj-l THEN i <- 0; 

IF menu. index ^ -1 THEN -- turn old guy off 
InvertBoxInRectangle[ 
r, 1, r.cw-2, oldIndex*def aul tl ineheight+1, defaul tl ineheight-i]; 

i <- IF index « LENGTH[menu. array]-! THEN ELSE 1; 

oldlndex <- index; 

IF index # -1 THEN -- turn new guy on 
InvertBoxInRectangle[ 
r, 1, r.cw-2, oldIndex*def aul tl ineheight+1 , defaul tl ineheight-i]; 

menu, index <- index; 

END; 

SaveRectangle: PUBLIC PROCEDURE [rectangle: Rptr] RETURNS [POINTER] - 
BEGIN 

--declare locals 

bbTable: ARRAY[0. .SIZE[BBTable]] OF WORD; 
bbptr: BBptr « EVEN[BASE[bbTable]]; 
SegPtr: POINTER; 
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wordsperl ine: CARDINAL « rectangle. bitmap. wordsperl ine; 

mapaddr: BMptr ■ rectangle. bitmap. addr; 

dw: CARDINAL ^ rectangle. cw; 

dh: CARDINAL ^ rectangle. ch; 

dwWords: CARDINAL <- (dw + 15)/16 + 1; 

totalWords: CARDINAL ^ dwWords * dh; 

SegPtr ^ SystemDef s.AllocateSegment[totalWords]; 

bbptrt 4- BBTable[0, FALSE. FALSE, block, replace, 0, SegPtr, dwWords, 

0,0,dw,dh, map addr, wordsperl ine.rectangle.xO, 

rectangle. yO. 0,0, 0,0]; 
BITBLT[bbptr]; 
RETURN[SegPtr]; 
END; 

RestoreRectangle: PUBLIC PROCEDURE [rectangle: Rptr, SegPtr: POINTER] ■ 
BEGIN 

--declare locals 

bbTable: ARRAY[0. .SIZE[BBTable]] OF WORD; 
bbptr: BBptr » EVEN[BASE[bbTable]]; 

wordsperl ine: INTEGER - rectangle. bitmap. wordsperl ine; 
mapaddr: BMptr " rectangle. bitmap. addr; 
dw: CARDINAL ^ rectangle. cw; 
dh: CARDINAL ^ rectangle. ch; 
dwWords: CARDINAL *- {dw + 15)/16 + 1; 
bbptrt <- BBTab 1 e[ 0, F ALSE. FALSE, block, rep 1 ace, 0, mapaddr, wordsperl ine. 

rectangle .xO , rectangle.y0.dw,dh , SegPtr, 

dwWords. 0,0,0, 0,0,0]; 
BITBLT[bbptr]; 

SystemDef s. FreeSegment[SegPtr]; 
RETURN; 
END; 

EVEN: PROCEDURE [v: UNSPECIFIED] RETURNS [UNSPECIFIED] ■ 
BEGIN 

RETURN[v+ InlineDefs.BITAND[v.l]]; 
END; 

-- Selection routines 

ResolveBugToPosition: PUBLIC PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord] 
RETURNS [line: CARDINAL, xpos: xCoord. width: CARDINAL, index: Streamlndex] = 
BEGIN 

-- Declare Locals 
char: CHARACTER; 
nlines, newpos: CARDINAL; 
-- NOTE: following array is ONE origin 
linestarts: DESCRIPTOR FOR ARRAY OF Streamlndex; 
IF w.file - NIL THEN RETURN; 
nlines <- (w. rectangle, ch/w.ds.l ineheight)-!; 
linestarts <- DESCRIPTOR[GetLineTable[]. nlines+1]; 
IF Equallndex[l inestarts[0] .nullindex] THEN -- empty window 

RETURN[1, leftmargin, 0, originindex] ; 
[x, y] ^ CursorToRecCoords[w. rectangle, x, y]; 
-- NOTE: real line number « line + 1 
line ♦- MIN[MAX[y/w.ds. 1 ineheight, 1], nlines]; 
-- back up until real text in window 
UNTIL NOT Equallndex[linestarts[line~l], nullindex] DO 

line ♦- line-1; 

ENDLOOP; 
index <- 1 inestarts[l ine-1]; 
Setlndex[w. f ile, index]; 
xpos *~ leftmargin; 
width <- 0; 
IF X <« xpos THEN 

BEGIN 

char <- w. file. get[w. file 1 StreamError «> GOTO Exit]; 

width *- IF char « IIC THEN ComputeTabWidth[w. ds .pfont.xpos] 
ELSE ComputeCharWidth[char, w.ds.pfont]; 

EXITS 

Exit -> NULL; 

END 
ELSE 

DO 

char ^ w.f ile. get[w. file 1 StreamError ■> EXIT]; 

width ^ IF char - IIC THEN ComputeTabWidth[w. ds . pfont, xpos] 
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ELSE ComputeCharWidth[char, w.ds.pfont]; 
IF Equallndex[index, w.eofindex] OR char » CR OR 

Equa1Index[ModifyIndex[index, 1] ,1 inestarts[l ine]] THEN EXIT; 
IF X < (newpos ♦- xpos + width) THEN EXIT; 
xpos <- newpos; 

index <- ModifyIndex[index, 1]; 
ENDLOOP; 
RETURN[1ine, xpos, width, index]; 
END; 

ComputeTabWidth: PROCEDURE [font: FAptr, x: xCoord] RETURNS [CARDINAL] « 
BEGIN 

tw: CARDINAL ■ ComputeCharWidth[ ' .font] ♦ 8; 
RETURN[tw - LOOPHOLE[x-leftinargin, CARDINAL] MOD tw] 
END; 

GetSelection: PUBLIC PROCEDURE [w: WindowHandle] RETURNS [STRING] - 
BEGIN 

-- Declare Locals 
count: CARDINAL; 
fa: AltoFileDefs.FA; 
str: STRING; 

-- put the selection into a string 

IF Equa1Index[w. selection. rightindex, nullindex] THEN RETURN[NIL]; 
GetFA[w.fne, 0fa]; 
count ♦- (w. selection. rightindex. page-w. selection. leftindex.page)*512 + 

(w. selection. rightindex, by te+l)-w. selection. left index. byte; 
str *- SystemDefs.AnocateHeapString[count]; 
Se tin dex[w. file, w. selection. leftindex]; 
THROUGH [0.. count) DO 

StringDef s.AppendChar[str, w.file. get [w. file]]; 

ENDLOOP; 
JumpToFA[w.file. @fa]; 
RETURN[str]; 
END; 

MakeSelection: PUBLIC PROCEDURE [w: WindowHandle, sel : POINTER TO Selection] 
BEGIN 

-- unmark the old one if one exists and is visible 
IF NOT {Equallndex[w. selection. leftindex, nullindex] 
OR w. selection, leftl ine ■ 0) THEN MarkSelection[w]; 
-- mark the new one 
w. selection *- selt; 
MarkSelection[w]; 
END; 

MarkSelection: PUBLIC PROCEDURE [w: WindowHandle] ■ 
BEGIN 

i: CARDINAL; 
IF Equal Index[w. selection. leftindex, null index] 

OR w. selection. leftline - THEN RETURN; 
IF w. selection. leftl ine « w. selection. rightl ine THEN 
InvertBoxInRectangle[w. rectangle, w. selection. leftx, 
w.selecti on. rightx-w. selection. leftx, 
w. sel ecti on. leftline*w.ds.line height, w.ds.lineheight] 
ELSE 
BEGIN 

InvertBoxInRectangle[w. rectangle, w. selection. leftx, 
(w. rectangle. cw-l)~w. selection .leftx. 

w. selection. leftl ine*w.ds .line height, w.ds.l ineheight] ; 
i <- w, selection. rightl ine-w. selection. leftl ine; 
IF i > 1 THEN 

InvertBoxInRectangle[ 
w. rectangle, leftmargin, w. rectangle. cw-(lef tmargin+1) , 
(w. selection. leftl ine+l)*w.ds. 1 ineheight, (i-l)*w.ds.l ineheight]; 
InvertBoxInRectangle[ 

w. rectangle, leftmargin, w. selection. rightx-leftmargin, 
w. selection. rightl ine*w.ds.l ineheight, w.ds.l ineheight]; 
END; 
END; 

UpdateSelection: PUBLIC PROCEDURE[w: WindowHandle] - 
BEGIN 

--local data 
lastindex: Streamlndex <- nullindex; 
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fa: AUoFneDefs.FA; 

line: CARDINAL; 

nlines: CARDINAL ^ (w. rectangle. ch/w.ds . 1 ineheight) - 1; 

i: CARDINAL ^ 0; 

linestarts : DESCRIPTOR FOR ARRAY OF Streamlndex; 

linestarts *- DESCRIPT0R[GetLineTab1e[] , nlines +1]; 

--figure out the real last line 

FOR line IN [1. .nlines) DO 

IF Equallnclex[nullindex,linestarts[l ine]] THEN 

BEGIN lastindex ♦■ w.eofindex; nlines ^ line-1; EXIT; END; 
REPEAT 

FINISHED ■> lastindex ^ 1 inestarts[nl ines]; 
ENDLOOP; 
-- for no selection or out of bounds 
IF Equallndex[w. selection. leftindex, nullindex] OR 
GrEqualIndex[w. selection. leftindex, lastindex] OR 
Grlndex[l inestarts[0], w. selection. rightindex] THEN 
BEGIN w. selection. leftline ^ 0; RETURN; END; 
GetFA[w.f ile. @fa]; 
-- find line numbers 

IF GrEqualIndex[w. selection. leftindex, 1 inestarts[0]] THEN 
FOR i <- 0. i+1 UNTIL i » nlines DO 

IF (GrEqualIndex[w. selection. leftindex, 1 inestarts[i]] 
AND Grlndex[linestarts[i+1], w. selection. leftindex]) THEN EXIT; 
ENDLOOP; 
w. selection, leftl ine <- MAX[1, i+1]; 
IF Grlndex[lastindex, w. selection. rightindex] THEN 
FOR i <- i, i+1 UNTIL i « nlines DO 

IF (GrEqual Index[w. selection. rightindex, 1 inestarts[i]] 
AND Grlndex[linestarts[i+1], w. selection. rightindex]) THEN EXIT; 
ENDLOOP; 
w. selection .rightl ine ♦- MIN[nl ines+1, i+1]; 
--find xcoords 

IF GrEqualIndex[w. selection. leftindex, 1 inestarts[0]] THEN 
w. selection. leftx ♦- GetPos[w, 1 inestarts[w. selection. leftl ine-1], 
w. selection. leftindex, TRUE] 
ELSE w. selection. leftx ♦- leftmargin; 
IF Grlndex[lastindex, w. selection. rightindex] THEN 
w. selection. rightx <- GetPos[w, 1 inestarts[w. selection. rightl ine-1], 
w. selection. rightindex, FALSE] 
ELSE w. selection. rightx ^ w. rectangle. cw; 
JumpToFA[w.f ile, @fa]; 
MarkSelection[w]; 
END; 

GetPos: PROCEDURE [ 

w: WindowHandle, linestart: Streamlndex, index2: Streamlndex, left: BOOLEAN] 

RETURNS [xCoord] - 

BEGIN 

char: CHARACTER; 

xpos: xCoord ^ leftmargin; 

width: CARDINAL; 

IF Grlndex[linestart, index2] THEN RETURN[xpos] ; 

IF Equallndex[linestart, indexZ] AND left THEN RETURN[xpos]; 

Setlndex[w.f ile, linestart]; 

DO 

char ♦- w.f ile. get[w. file]; 

width ^ IF char « IIC THEN ComputeTabWidth[w.ds .pfont, xpos] 
ELSE ComputeCharWidth[char, w.ds. pfont]; 

xpos <- xpos + width; 

IF Equallndex[linestart, index2] THEN EXIT; 

linestart ♦- ModifyIndex[l inestart. 1]; 

ENDLOOP; 
IF left THEN xpos ^ xpos - width; 
RETURN[xpos]; 
END; 

END. of Menus 



